home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / randomModels / TextInSphere2.mdl / model.eve < prev   
Encoding:
Text File  |  1995-03-26  |  4.2 KB  |  79 lines
  1. # note that $modelPath is automagically set to be the complete path
  2. # name of whereever this .mdl file wrapper is located
  3. #
  4. source $modelPath/initialDefines.eve
  5. source $modelPath/initialProcs.eve
  6.  
  7. # note that since "source" is a built-in tcl command, we needed to
  8. # give it the full path name of the previous file so it could load it.
  9. # In the next command, though, since "loadControlPanel" is a new eve
  10. # command, it is smart enough to append the value of $modelPath to any
  11. # file that doesn't start with "/"
  12. #
  13. loadControlPanel controls.nib
  14.  
  15. startShape World
  16.  
  17.   startShape  {0.928608 0.008852 -0.370956 0.000000 \
  18.                0.061411 0.982263 0.177169 0.000000 \
  19.                0.365945 -0.187301 0.911593 0.000000 \
  20.                0.000000 -0.010000 -1.900000 1.000000};
  21.  
  22.     Color {1 1 1}
  23.     Surface ECDentedMetalEffect
  24.     TransformBegin
  25.       Scale 1.5 1 1
  26.       Sphere .7 -.7 .7 360
  27.     TransformEnd
  28.  
  29.     startShape sphereText
  30.       EveProc {drawTextSphere $sphere(radius) $text(color) $text2(color) $sphere(color) \
  31.                               $sphere(xRotate) $sphere(yRotate) $sphere(zRotate) \
  32.                               $sphere(xTranslate) $sphere(yTranslate) $sphere(zTranslate) \
  33.                               $text(string) $text(string2) $text(fontName) $text(size)}
  34.   
  35.       EveProc {drawTextSphere $sphere(radius) $text(color) $text2(color) $sphere(color) \
  36.                               $sphere(xRotate) $sphere(yRotate) $sphere(zRotate) \
  37.                               [expr {-.45 + $sphere(xTranslate)}] $sphere(yTranslate) $sphere(zTranslate) \
  38.                               sad mood $text(fontName) $text(size)}
  39.   
  40.       EveProc {drawTextSphere $sphere(radius) $text(color) $text2(color) $sphere(color) \
  41.                               $sphere(xRotate) $sphere(yRotate) $sphere(zRotate) \
  42.                               [expr {.45 + $sphere(xTranslate)}] $sphere(yTranslate) $sphere(zTranslate) \
  43.                               {.1 .1 .1} color $text(fontName) [expr {.9 * $text(size)}]}
  44.   
  45.       EveProc {drawTextSphere [expr {.6 * $sphere(radius)}] $text(color) $text2(color) $sphere(color) \
  46.                               [expr {25 + $sphere(xRotate)}] $sphere(yRotate) $sphere(zRotate) \
  47.                               [expr {.25 + $sphere(xTranslate)}] [expr {.4 + $sphere(yTranslate)}] [expr {.8 * $sphere(zTranslate)}] \
  48.                               {1.0} jawXR $text(fontName) $text(size)}
  49.   
  50.       EveProc {drawTextSphere [expr {.6 * $sphere(radius)}] $text(color) $text2(color) $sphere(color) \
  51.                               [expr {35 + $sphere(xRotate)}] $sphere(yRotate) $sphere(zRotate) \
  52.                               [expr {-.25 + $sphere(xTranslate)}] [expr {.5 + $sphere(yTranslate)}] [expr {.7 * $sphere(zTranslate)}] \
  53.                               {0.0} jawYR $text(fontName) $text(size)}
  54.   
  55.       EveProc {drawTextSphereLever [expr {.7 * $sphere(radius)}] $text(color) $text2(color) $sphere(color) \
  56.                                    [expr {-25 + $sphere(xRotate)}] $sphere(yRotate) $sphere(zRotate) \
  57.                                    [expr {-.4 + $sphere(xTranslate)}] [expr {-.4 + $sphere(yTranslate)}] [expr {1.1 * $sphere(zTranslate)}] \
  58.                                    {yow} saying $text(fontName) $text(size) .3}
  59.   
  60.       EveProc {drawTextSphereLever [expr {.7 * $sphere(radius)}] $text(color) $text2(color) $sphere(color) \
  61.                                    [expr {-30 + $sphere(xRotate)}] $sphere(yRotate) $sphere(zRotate) \
  62.                                    [expr {.3 + $sphere(xTranslate)}] [expr {-.45 + $sphere(yTranslate)}] [expr {1.1 * $sphere(zTranslate)}] \
  63.                                    {.632} eyeZR $text(fontName) $text(size) .3}
  64.   set xT .9
  65.   set yT -.25
  66.   set zT -.5
  67.   
  68.       EveProc {drawTextSphereLever [expr {.7 * $sphere(radius)}] $text(color) $text2(color) $sphere(color) \
  69.                                    [expr {-30 + $sphere(xRotate)}] -70 30 \
  70.                                    $xT $yT $zT \
  71.                                    {.32} eyeYR $text(fontName) $text(size) .3}
  72.      
  73.     endShape
  74.   endShape
  75. endShape
  76.   
  77. camera "set cam(lowRezTesselation) 4"; # note: doing a "camera {lowRezTesselation 4}" would do the same...
  78. camera "set cam(tesselation) 8"; # note: doing a "camera {tesselation 8}" would do the same...
  79.